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1 ZTITLE *EDTSNOOPEN = OPEN error message’ 
§ MODULE EDTSNOOPEN ( ! OPEN error messa 
Pp = *v04-000' File: NO PEN. BLI Edit: JBS1009 
= 
O96 BEGIN 
leaeenenennenerenseanenneennetenereerecteeteereeeeetnententnnenenteeneeteets 
'e 


ie COPYRIGHT (c) 1978, 1980 , BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 


't ALL RIGHTS RESERVED. 
ie THIS for eene IS FURNISHED a A i AND MAY BE USED AND corite 
ONLY IN ACCORDANCE W THE TERM C THE 


1982, 1984 


S 
OOo 


; PRO 
t® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
!t TRANSFERRED. 


!® THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
- OORPORAT ION. " NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


ie DIGITAL ASSUMES NO RESPONSIB 


IBILIT 
te SOFTWARE ON EQUIPMENT WHICH IS N 


Y FOR THE USE OR RELIABILITY OF ITS 
NOT SUPPLIED BY DIGITAL. 


‘@ 

PITTIIIIIILILILL LLL LILI LLL LLL LLL LLL iLL LLL iLL 
| 
| 
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++ 
FACILITY: EDT == The DEC Standard Editor 
ABSTRACT: 

OPEN error message 


SoOOooooooooooooooooooo 
WAWAAAAUI AAR POPONOPONPUNINYDS 2 2 OO OO Oe 


ENVIRONMENT: Runs at any access mode - AST reentrant 
AUTHOR: Bob Kushlis, CREATION DATE: 6-AUG-1979 


ss 


FUN O OONAUES WN O OONOU EWN O OONOUS wr 


MODIFIED BY: 
1-001 = Original. DJS 18-FEB-1981. This module was created by 


! 1-009 - Improve the appearance of the Listing. JBS 17-Jun-1983 


eee ee ce ee ee ee me ee ce ee ee ee ee ee ed ed ed od ed ed 
-- 


Boe 
04 
04 
5 ext tracting routine EDTS$$FIOPN_ERR from ees EDTCTR. 
pe8 1-002 = Regularize header and fix file name x. 3 qule name. JBS 04-Mar-1981 
04 1- - Use the new message codes. JBS 04- 
048 1-004 - If VMS don't execute any code. STS 108 Feb-1982 
049 1-005 = Put error messages back on VMS. STS 25-Feb-1982 
50 1- $ - Add CRLF's for EXT messages. 14 ~Jul-198 
51 1-007 = Most CRLFs no Longer needed. ul- “198 
§ ! 1-008 - Move setting of reverse video. Oe AB 2 -Jul-1982 
4 
5 


Ssss 
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> SSSsssss. 


NOW EWC 


a nk a ah at at ss ss ss ss 1 ss 1 2 os 1 1 


ons 


1 SSBTTL ‘Declarations’ 


TABLE OF CONTENTS: 


REQUIRE ‘EDTSRC: TRAROUNAM' ; 


FORWARD ROUTINE 
EDTSSFIOPN_ERR : NOVALUE; 


INCLUDE FILES: 


REQUIRE ‘EDTSRC:EDTREQ'; 
RIF ZBLISS (BLISS32) 
ZTHEN 


REQUIRE ‘EDTSRC:SYSSYM'; 
RFI 


i MACROS: 
NONE 

EQUATED SYMBOLS: 
NONE 

OWN STORAGE: 
NONE 

EXTERNAL REFERENCES: 
In the routine 


<m 
ba 
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! VMS system symbols 
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EDTSSFIOPN_ERR = OPEN error Sessege 12-80-1382 ray DL EKSVMGMASTERS EDT. SRCINOOPEN.BLI:1 - (33 
; 37 96 } ZSBTTL ‘EDTSSFIOPN_ERR = OPEN error message’ ‘ 
: 38 638 1 GLOBAL ROUTINE EDTSSFIOPN_ERR ( ! OPEN error message | : 
; 100 1 ° ! Message to print first ‘ 
; 10) 00 1 FILE DESC ! address of file name on VMS : 
: 196 f 1 | ) : NOVALUE = : 
; 104 7 5 1 !++ ; 
: : 5 f ¢ : FUNCTIONAL DESCRIPTION: : 
; 199 796 1 Print an error message about failure to open a file. : 
$ 138 7 1! First ? specified message is printed, then other messages : 
: 4 f : ! including the file name. ’ 
: 1M 210 1 | FORMAL PARAMETERS: 3 
4 118 Org ; MESS Number of the message to print first. : 
i 15 a 1 { IMPLICIT INPUTS: ; 
: 117 O716 1 i NONE ; 
; «#118 a 1! 3 
: 13? gris } IMPLICIT OUTPUTS: : 
: 121 0720 1 i NONE ; 
% ; sk 3 
; ! Z 4 ¢ : ROUTINE VALUE: : 
; 138 0724 1! NONE ; 
..% | 0725 1! 3 
: : i 3 $ : } SIDE EFFECTS: : 
3 9 07 g Prints a long message on the screen F 
: (131 0780 1 ie. ; 
: 136 7 CU 
; 134 44 § BEGIN : 
: 135 0734 EXTERNAL ROUTINE ; 
3 13 735 EDTSSSC_REVID, F 
: 137 ra6 EDTSSTI-WRSTR, 3 
: 138 7 EDTSSFMT_STR, ; 
: 139 0738 EDTSSFMT_M¢¢, : 
: 140 739 EDT$$10_ ERRMSG, | : 
3 (141 740 EDTSSMSG_TOSTR, : 3 
3 146 15} EDTSSFMT_CRiF ; ! Terminate a Line in the format buffer | : 
i 146 , 748 IF XBLISS (BLISS16) : 
; 146 U 0745 : 
; (614 U 074 a ROUTINE : 
: 148 u O74 EDTSSGET_FNAM; | 
. oe ae | i 
i 158 731 EXTERNA 3 
3; 752 EDTSSA_FMT_WRRUT; ! Address of format output routine : 

| 

oe 


——___—_—_—_—— 
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504-000 EDTSSFIOPN_ERR = OPEN error Sessege 127808 - 1 3b ray DIEKSUMEMASTERSCEDT SRCINOOPEN.BLI:1 48 (3) 
: 154 0753 
; 155 754 MAP 
; 6 f 5 FILE_DESC : REF BLOCK C, BYTE); 
: 138 g ; MESSAGES ((FILNAM)); 
3 160 739 IF (.EDTSSA_FMT_WRRUT EQL EDTSSTI_WRSTR) THEN EDTSSSC_REVID (); 
: 16¢ 0761 EDTSSFMT_MSG (.MESS); 
: 164 Ores IF (.EDTSSA_FMT_WRRUT EQL EDTSSTI_WRSTR) THEN EDTSSSC_REVID (); 
: 166 Ores EDTSSMSG_TOSTR (EDTS_FILNAM); 
: 168 L O76? ZIF “BLISS (BLISS$32) 
; 169 768 2 XTHEN 
: 170 0769 EDTSSFMT_STR (.FILE_DESC COSCSA_POINTER], .FILE_DESC CDSCS$W_LENGTH)); 
: 171 u 0770 2 XELS 
: 7 vu 0771 EDTSS$GET_FNAM (); 
: 17 Or7e 1 
: 174 077 
: 175 0774 EDTSSFMT_CRLF (); 
: 176 0775 EDT$SIO_ERRMSG (5; 
; 177 0776 1 END; ! of routine EDTSS$FIOPN_ERR 


NOOPEN EDTSNOOPEN = OPEN error message 


EDTS 
NT \V04-000\ 
.EXTRN EDTS$SC_REVID, EDTS$TI_WRSTR 
“EXTRN EDTSSFMT_STR, EDTSSF 
XTRN EDT$$IO_ERRMSG, EDTSSMSG_TOSTR 
EXTRN EDTSSFMT CRLF, EDTSSA_FMT_WRRUT 
EXTRN EDTS$_FIL 
.PSECT _EDTSCODE,NOWRT, SHR, PIC,2 
001¢ 00000 .ENTRY EDTSSFIOPN_ERR, Save R2,R3,R4 : 0698 
54 000000006 00 9E 00002 MOVAB EDTSSTI_WRSTR, R4 : 
3 900000006 00 9€ 00009 MOVAB EDTS$SC~REVID, R3 ; 
38 000000006 00 9€ 0019 MOVAB EDTS$$A_FMT_WRRUT, R2 ; 
5 64 9 001 MOV EDTS$TI_WRSTR, RO : 0759 
50 D1 OO01A CMPL  EDTSSA_FMT_WRRUT, RO : 
12 O1D BNEQ is : 
63 FB OOOTF CALLS #0, EDT$S$SC_REVID : 
04 AC DD 000 é 1$ PUSHL mes > 0761 
000000006 0 01 FB 0 CALLS #1, EDTSSFMT_MSG ; 
64 9 c MOVAB EDTS$$TI_WRSTR, RO > 0763 
0 6¢ p} 00 F CMPL DTSSA_FMT_WRRUT, RO ; 
63 3 FB ops OAtts #0, EDTSSSC_REVID 
000000006 8F DD 6 7 2% PUSHL reOTS FILNAM > 0765 
000000006 00 1 FB D CALLS #1, EDT$$MSG_TOSTR : 
0 08 A p 44 MOVL FALE DESC RO : 0769 
E 60 3¢ 8 MOVZ2WL (RO)> -(SP) : 
04 AO DD 00048 PUSHL : 
000000006 00 02 FB 0004E CALLS #2, EDTSSFMT_STR : 


<m 
) 4 


VOu-OO0 «= s«EDISSPLOPNLERR «~ OPEN error Ressage 1f3eo-1 94 Mi2ik8 | UNScblmBmAS FERS cEOE SRCSNooPEN.eL1;1°°% «33 
SSSBBBRE 9 G8 FB Hans GAS fB- ESTED : 
; Routine Size: 100 bytes, Routine Base: _EDTSCODE + 0000 
3 $738 1 !<BLF/PAGE> 
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VO-000 «—sEDTSSFIOPN_ERR «= GPEN error message ISSep986 OY:NS4 YLT BLS tRE YE OTH8 sew ous caf 
: 183 Orb } END ! of module EDTSNOOPEN 
: 188 #8) ELUDON | 

| 
; PSECT SUMMARY 
; Name Bytes Attributes 
:  EDTSCODE 100 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics ; 
; evenness Syahel§ «ccosces Pages Processing ; 
: File Total Loaded Percent Mapped Time ; 
: BSSRRUABESEEBT SREREEECH Side "ty tone Se Ri 3 
S P5ea sj UaSestevsc IBIS TARLET L355 9776 2 0 581 00:04.1 : 
: COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE) /NOTRACEBACK/LIS=LIS$:NOOPEN/OBJ=0BJ$:NOOPEN MSRC$:NOOPEN.BLI/UPDATE=(ENH$:NOOPEN) 


3 Sizer 100 code + 0 data bytes 
: Run Time 00:16.0 
3 pe y tae: 08388- 
3 Lines/CPU Min: 9 

3 tensnes/tPu-nin: 160 

: 1 Used: 79 pages 

3; Compilation Complete 
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